home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / earkit / chat / amirc / rexx / leave.amirx next >
Text File  |  1998-09-22  |  337b  |  19 lines
  1. /* LEAVE.AMIRX -- Leave a channel with a message
  2. \\ written by Oliver Wagner
  3. //
  4. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  5. // command:  "/alias leave /rx leave %p"
  6. \\
  7. */
  8.  
  9. PARSE ARG ARGS
  10. OPTIONS RESULTS
  11.  
  12. if ARGS = "" then do
  13.    "echo P="d2c(27)"b«Error» Usage: LEAVE text"
  14.    exit
  15. end
  16.  
  17. 'say 'ARGS
  18. 'say /!leave'
  19.